home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Tools 4
/
Amiga Tools 4.iso
/
tools
/
mail-tools
/
thor
/
thor_2.22
/
thor.lha
/
rexx
/
BBSRead
/
ClearFileDataBase.br
< prev
next >
Wrap
Text File
|
1995-12-18
|
801b
|
48 lines
/* ClearFileDataBase.br
*
* Delete all fileareas on a bbs.
*
* Script by: Eivind Nordseth, Ultima Thule Software.
*/
parse arg argument
if(argument = '') then
do
say '$VER: ClearFileDataBase.br V3.1 (04.09.94)'
say 'Template: BBSNAME/A'
exit
end
if ~show('p', 'BBSREAD') then do
address command
"run >nil: `GetEnv THOR/THORPath`bin/LoadBBSRead"
"WaitForPort BBSREAD"
end
address BBSREAD
GETFAREALIST stem FAREALIST argument
if(rc ~= 0) then
do
say BBSREAD.LASTERROR
exit
end
do i=1 to FAREALIST.COUNT
say 'Deleting file area:' FAREALIST.i
CONFIGFAREA argument '"'||FAREALIST.i||'"' DELETEFAREA
if(rc ~= 0) then
do
say BBSREAD.LASTERROR
exit
end
end
PACKDATAFILE argument FILEDATA
if(rc ~= 0) then
do
say BBSREAD.LASTERROR
exit
end